home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 98
/
Skunkware 98.iso
/
src
/
interp
/
perl5.005.tar.gz
/
perl5.005.tar
/
perl5.005
/
perlsh
< prev
next >
Wrap
Text File
|
1998-07-19
|
396b
|
16 lines
#!/usr/bin/perl
# Poor man's perl shell.
# Simply type two carriage returns every time you want to evaluate.
# Note that it must be a complete perl statement--don't type double
# carriage return in the middle of a loop.
$/ = "\n\n"; # set paragraph mode
$SHlinesep = "\n";
while (defined($SHcmd = <>)) {
$/ = $SHlinesep;
eval $SHcmd; print $@ || "\n";
$SHlinesep = $/; $/ = '';
}